(archive-remote-regexp): Don't accept hostnames

ending in period.  (See previous ange-ftp.el change.)

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index a6ba200e44d146fb1d4ab74ceb5398718d04a8ba..b31a59fbab1f2ea0d45fb54252e39a4d1bcd3e79 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -108,7 +108,7 @@ and do The Right Thing.")
    (or (getenv "TMPDIR") (getenv "TMP") "/tmp"))
   "*Directory for temporary files made by arc-mode.el")
 
-(defvar archive-remote-regexp "^/[^/:]*[^/:]:"
+(defvar archive-remote-regexp "^/[^/:]*[^/:.]:"
   "*Regexp recognizing archive files names that are not local (i.e., are
 not proper file names outside Emacs).  A local copy a the archive will
 be used when updating.")